 SUBT Exported MIDI constants ; => &.Hdr.MIDI

OldOpt SETA {OPT}
 OPT OptNoList+OptNoP1List

 ^ 0

SWIClass SETS "MIDI"
 ^ Module_SWISystemBase + MIDISWI * Module_SWIChunkSize

 AddSWI SoundEnable
 AddSWI SetMode
 AddSWI SetTxChannel
 AddSWI SetTxActiveSensing
 AddSWI InqSongPositionPointer
 AddSWI InqTxBufferSize
 AddSWI InqError
 AddSWI RxByte
 AddSWI RxCommand
 AddSWI TxByte
 AddSWI TxCommand
 AddSWI TxNoteOff
 AddSWI TxNoteOn
 AddSWI TxPolyKeyPressure
 AddSWI TxControlChange
 AddSWI TxLocalControl
 AddSWI TxAllNotesOff
 AddSWI TxOmniModeOff
 AddSWI TxOmniModeOn
 AddSWI TxMonoModeOn
 AddSWI TxPolyModeOn
 AddSWI TxProgramChange
 AddSWI TxChannelPressure
 AddSWI TxPitchWheel
 AddSWI TxSongPositionPointer
 AddSWI TxSongSelect
 AddSWI TxTuneRequest
 AddSWI TxStart
 AddSWI TxContinue
 AddSWI TxStop
 AddSWI TxSystemReset
 AddSWI IgnoreTiming
 AddSWI SynchSoundScheduler
 AddSWI FastClock
 AddSWI Init
 AddSWI SetBufferSize
 AddSWI Interface

; MIDI event reasons
; receive buffer was empty and has received some data
MIDI_DataReceivedEvent      * 0
; An error has been detected in the background
MIDI_ErrorEvent             * 1
; the scheduler is close to emptying
MIDI_SchedulerEmptyingEvent * 2

                         ^       0 ; MIDI service sub-rc's
Service_MIDIAlive        #       1
Service_MIDIDying        #       1

 OPT OldOpt

 END
